Documentation/source/0 - Documentation.R

In INESSS-QC/admissibilite1: Admissibilité des individus

library(rmarkdown)
library(stringr)

source_files <- list.files("Documentation/source")
source_files <- source_files[source_files != "0 - Documentation.R"]
files <- list.files("Documentation")
files <- files[files != "source"]

# AIDE_FONCTIONS ----------------------------------------------------------------------------------

del_files <- files[str_detect(files, "AIDE_FONCTIONS")]  # nom des fichiers à supprimer
if(length(del_files))  # s'il y a des fichiers à supprimer
  for(file in del_files) file.remove(paste0("Documentation/",file))  # supprimer fichier
# Créer document/fichier
render(
  input = "Documentation/source/AIDE_FONCTIONS.Rmd",
  output_format = "html_document",
  output_file = paste0("AIDE_FONCTIONS_",Sys.Date(),".html"),
  output_dir = "Documentation"
)


# NEWS --------------------------------------------------------------------------------------------

del_files <- files[str_detect(files, "RegistreVersions")]  # nom des fichiers à supprimer
if(length(del_files))  # s'il y a des fichiers à supprimer
  for(file in del_files) file.remove(paste0("Documentation/",file))  # supprimer fichier
render(input = "NEWS.md",
       output_format = "github_document",
       output_file = paste0("RegistreVersions_",Sys.Date(),".html"),
       output_dir = "Documentation")


# README ------------------------------------------------------------------------------------------

# Créer document - HTML + github
del_files <- files[str_detect(files, "LISEZMOI")]  # nom des fichiers à supprimer
if(length(del_files))  # s'il y a des fichiers à supprimer
  for(file in del_files) file.remove(paste0("Documentation/",file))  # supprimer fichier
render(input = "Documentation/source/README.Rmd",
       output_format = "html_document",
       output_file = paste0("LISEZMOI_",Sys.Date(),".html"),
       output_dir = "Documentation",
       params = list(R.Version = R.version.string,
                     RStudio.Version = paste0("RStudio version ",RStudio.Version()$version)))
render(input = "Documentation/source/README.Rmd",
       output_format = "github_document",
       output_dir = getwd(),
       params = list(R.Version = R.version.string,
                     RStudio.Version = paste0("RStudio version ",RStudio.Version()$version)))
if("README.html" %in% list.files()) file.remove("README.html")  # supprimer fichier 'preview' non nécessaire




# diagram ---------------------------------------------------------------------

del_files <- files[str_detect(files, "admissibilite1-diagram")]  # nom des fichiers à supprimer
if(length(del_files))  # s'il y a des fichiers à supprimer
  for(file in del_files) file.remove(paste0("Documentation/",file))  # supprimer fichier
# Créer document/fichier
render(
  input = "Documentation/source/admissibilite1-diagram.Rmd",
  output_format = "html_document",
  output_file = paste0("admissibilite1-diagram_",Sys.Date(),".html"),
  output_dir = "Documentation"
)

rm(list = ls())